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1. Abstract 


This prearse is made up of 46 ubtests tc check out the 
pewer fai] on the 11/70. The @ msec. power down and power 
up time is checked on each power fail. Initelly power fails 
arg tried in all prosessor modes then error conditions like 
red zone, yellow zone, time out, and odd address in al] the 
processcr modes. inally @ power fai] is done with memor 
management aborts occuring and e memory volitility test i 
run on all available memory. 


eee ee ee ee 


2. Requirements 
2.3 Equipment 
memory. 
| 2.2 Storage 


| PDP11/70 standard computer with up to IM words of core 
Program Storage - the routines use memory 0 - 4472 


2.3 Preliminary programs 
All processor diagnostics 


3. Loading procedure 
Use standard procedure for “XXDP” media. 


4. Starting Procedure 

! 

41 Centro) switch settings 
See 5.1.1 

| 4.2 Starting address 


Load Address 200 and Start. 


Ss. Operating procedure 


Load Address 200 and START. A message will be typed which 
is the name of the progres the size of memor nd ir 
he DISPLAY 


unanin 
instructions. Turn switch to OI Y REGISTER 
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and power down then up when the test number appears in the 
lights. Do this for each test until the count recycles to 
- Each subtest is executed once excegt test 16 which runs 
times before cont seuing. SW14 causes the program loop on 
the current test..blank 
$.1 Operational switch settings 


At SA eee 81] switches down will run a each test 
and HALT on error. SW1Y should be used to laop on the 
current test. 


§.1.1 Switch settings are: 
sutl} 2] ..... scope loop 


5.2 Subroutine Abstracts 
5.2.1 POWDWN and POWUP 


These poutines are used to save and restore vital registers 
and test the time allowed for por fail by the processor. 
A SOB loop is used to check the timing. LOC 1100 contains 
the timing factor. Control is returned to the program via. 
IMP (R3) so the power fail return address is put in ° 
ILLUP and I! are used for reporting not enough time to 
power down and up. 


6. Errors 

6.1 Error printout 
None 

6.2 Error HALTs 


The ere ram will war on_error. The DISPLAY switch should 

urned to the DATA toy F sition for the failing data. 
RO, which is displayed on a contains the bad data or 
bad address (see listing) in most of the tests. 


If an error occurs in test 16, the data can be examined b 
turning the MODE switch to KERNAL I, load address with th 
address in RO and examine. To calculate the ailing 
s**ress, examine KIPARS (17772352) and use that for th 
dafzet to the address in RO. To do this, use KIPARS as bits 
(21:6) and add RO<12:0) to it. This is the physical address 
of the bad data. 


If the processor HALT’s at ILLUP, the power down routine did 
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not have enough time to complete. If it HALT’s at ILLDWN, 
the oh eee powered down before the up routine completed. 
In Both ‘cases, 2 msec is the minimum time allowed by the 
processor. The gregran must be restarted at 200 after these 
errors. The address of the power failed routine is in 
location ERROR. 


6.3 Error recovery 
Hit continue or Restart at 200 


_ Restrictions 
None 

8. Miscellaneous 

8.1 Execution time 
N/A 

8.2 Stack Pointer 


Stack is initally set to 1100 


x 


Rot DeKec-n PDP-11/70 POWER FAIL 
PMENT CORP 


T¥THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
{¥PACKAGE (HAINDEC-11-DZGAC-A3).. 


 SBTTL OPERATIONAL SWITCH SETTINGS 


* SWITCH USE 
# 14 LOOP ON TEST 
3% 10 INHIBIT BELL AT END-OF-PASS 


> ees eo ere eee en eet canes. eo creme oer en SEER ay SERRE 


‘2B ROR DED pry 


~SBTTL BASIC DEFINITIONS 


jEIN TIAL ADDRESS OF THE STACK POINTER ##% 1100 ##% 


a T ss IRST AQORESS OF STACK 
00 KERSTK= STA $3 K 
> Sear SUPSTK= STACK~200 ; SUPERVISOR STACK 





ie Uae 
EQUIV EMT,ERR 


ge culV ior, score 


Oe ee ern oe 


He eine 





OF SCOPE CALL 
CALL 
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269 


270 
s 1 
573 
274 


275 


Riis eae pana east ead cs RS 


WIIG) CIWIGIGI OIG) 
02 bao Fs an One Pe fee fe Pee 
WO NOU £ WIT 
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‘Ses 
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;;STACK LIMIT REGISTER 
PIRQ= 177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 





Suns 7787 SWITCH REGISTER 
ISPLAY= 
s #MISCELLANEOUS DEFINITIONS 
hits 11 ss FOR HORIZONTAL TAB 
LF= 1s $3 LINE 
= 1 $8 CARRI RETURN 
CRLF= 200 *:CODE FOR CARRIAGE RETURN-LINE FEED 





:¥GENERAL PURPOSE REGISTER DEFINITIONS 
RO= “0 3;GENERAL REGISTER 
Ri= %1 :GENERAL REGISTER 
Ro= %2 >:GENERAL REGISTER 
R3= v3 ; GENERAL REGISTER 
= fe 9° 
RS= “S + SENERAL RECT eTER 
2 % GENERAL REGISTER 
= “47 :;GENERAL REGISTER 
-EQUIV RO,R1O 3;GENERAL RESISTER 
“EQUIV R1-RIL +: GENERAL REGISTER 
-Beuty Re Ris 3;GENERAL REGISTER 
“EQUIV R3,RI1 3:GENERAL REGISTER 
“EQUIV R4;R14 >;GENERAL REGISTER 
-EQUIV RS,RIS : : GENERAL STER 
“EQUIV Rb,SP >:STACK POINTER 
EQUIV SP,KSP :KERNEL STACK POINTER 
-Eau v SP.SSP $s SUPERY SOR STACK POINTER 
“EQUIV SP; USP :USER STACK POINTER 
“EQUIV R7,PC 33 COUNTER 
-¥PRIORITY LEVEL DEFINITIONS 
PRo= oO ;:PRIORITY LEVEL 0 
PRi= 40 ss PRIORI TY LEVEL 1 
PRe= 100 ; PRIORITY LEVEL e 
PR3= =s« 14D PRIORITY LEVEL 3 
PR4= 200 >:PRIORITY LEVEL 4 
PRS= 240 s PRIORITY LEVEL 5 
= 00 +S PRIORTTY tEvet g 
-#"SWITCH REGISTER” SWITCH DEFINITIONS 
owis= 
Swi4= 
SW13= 
SWi2= 10000 
Siig: =00 
I 
Suw0s= 400 
SwO7= 200 
Sw06= 100 
auoue | 20 








| 
| 


MAINDEC-11-DEKBG-A 
DERDGA PLL BASIC DEF 
325 000010 
326 000004 
327 000002 
328 000001 

329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 100000 
342 040000 
343 029000 
344 010000 
345 004000 
346 002000 
347 001000 
2 Be 
31 ocooo4e 
3S2 000020 
353 000010 
3s4 O0000N4 
355 © 000002 
356 000001 
3$7 
358 
359 
360 
361 
362 
363 
364 
365 
366 
ee 
9 000004 
000010 
71 600014 
000014 
373 000014 
are b000e0 
noooe2 
ae 000030 
378 Bo00e0 
379 000054 
380 000114 
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eae 
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+ DWMMDMONMMMMMMWMMMWMU-- 
4344444 

5-8 

nue 


Beeesees 


4 4 00 4 4 4 


<<<<<<<< 


“EQUIV 
EQUIV 
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SRaeRee 


RaomeSeS 


Ss 


8 4 4 4 04 0 0 0 
4 4 00 4 1 4 


PeclesTesteslesleslecleslesleutuy 
peclestesTeslesleelecleslealen] 
tt a a4 
o-nasune Joo 


~ 
8 


TPVEC= 64 
CACHVEC=114 
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, DATA BIT ata (BITOO TO BITIS) 


TRAP VECTOR ADDRESSES 


pi OUT AND OTHER ERRORS 
+ RY AND ILLEGAL INSTRUCTIONS 
# 


INT TRAP (BPT) 
# T/QUTPUT TRAP (TOT) #¥SCOPEN® 
EMULATOR TRAP (EMT) *#ERROR## 
:"TRAP” TRAP 
TTY 
*:TTY PRINTER VECTOR 
*:CACHE ERROR INTERRUPT VECTOR 
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Fs 

~~ 

e R 
‘ 

be ps 
as 





00024" PIRQVEC=240 ; oo INTERRUPT REQUEST VECTOR 
000eSu MMVEC= 250 ;;MEMORY MANAGEMENT VECTOR 
-SBTTL CACHE REGISTER DEFINITIONS 
177740 LOADRS = 177740 ; ;;LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 
177742 HIADRS = oe ;; UPPER AA ADDRESS THAT CAUSED ERROR 
ees ESM = {f¢hae HHRERORy”SOnTROL RECYeTER 
177750 MAINT = 177750 ;MEMORY MAINTENENCE REGISTER 
177752 HITMIS = 199982 SHIT MISS REGISTER “1” IMPLIES HIT IN CACHE 


-SBTTL CPU REGISTER DEFINITIONS 


SESGRRE US ee RES : 









177760 SIZELO = 177760 3; MEMORY Ize REGISTER NUMBER TO PUT INTO A PAR 
3310 GET TO THE LAST 32 WORDS OF MEMORY 
uot 177762 SIZEHI = 177762 3 sHIGH os REGISTER, RESERVED FOR FUTURE USE 
402 177764 SYSTID = 177764 HSysTen 1D REGISTER 
403 177766 CPUERR = 177766 33 0PU U ERROR REGISTER HOLDS EOMOTT ION THAT CAUSED 
ape 3; HE TRAP TO ERRVEC (000004) 
406 
be 
mh -SBTTL MEMORY MANAGEMENT DEFINITIONS 
411 
is ;#MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 
414 177572 177572 
415 177574 MMRIs 177574 
416 177576 = 177576 
417 172516 1725 
418 EQUIV MMRO 
420 v 
422 
454 ;#USER “I” PAGE DESCRIPTOR REGISTERS 
; es 177600 UIPDRO= 177600 
426 177602 UIPDR1= 177602 
nth 177 Ut phese 1erene 
3 ube: Io 
| 430 177612 UIPORS= 177612 
431 177614 UIPORG= 177614 
me 177616 UIPOR7= 177616 
3 ;#USER “D” PAGE DESCRIPTOR REGISTORS 
436 i UDPORO= 177620 


ee ee 





a I | Meats =A 
DEKBGA.P11 MEMORY MANAGENEN 


177622 
77624 


172240 
i7ee4e 
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UDPORI= 177622 
77624 


;*SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 


SIPDRO= 172200 
SIPDRI= 172202 
Sion izes} 
eI = 135518 

PORS= 172212 
SIPDR6= 172214 
SIPDR7= 172216 


;#SUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 
SDPDRI= 175500 

SDPoRe= ivesse 

SDPORY= 175550 

ebb: Here 

;#SUPERVISOR “I” PAGE ADDRESS REGISTERS 


SIPARO= 172240 
SIPARI= 172242 
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dee 











S83 





GaSe 





IU UNT UN Ln nana 
02 pene bas §-0 hae ne pene Pe Po ae 
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eat titi 





uy 
x} 





si 
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MEMORY MANAGEMENT DEFINITIONS 


172362 
172364 


;*SUPERVISOR “D” PAGE ADDRESS REGISTERS 


a 


;#KERNEL “I” PAGE DESCRIPTOR REGISTERS 


RRRRRRAR 
bet eg PIN 


K 
KIPAR?= 


;*#KERNEL “D” PAGE ADDRESS REGISTERS 


KDPARO= 
KOPARI= 
KDPAR2= 








0 
= 17eeSe 


175586 


RRR, ns 
Oo 


% 
tu 
a 
a 
o 


172356 


172360 
172362 
172364 
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172366 
17 


RDPAR?= 
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-SBTTL UNIBUS MAP REGISTER DEFINITIONS 


;*THE LOWER 16 BITS OF_THE MAP REGISTERS ARE LABELED *MAPLXx’ 
;%THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED ’MAPHXX’ 


MAPLOO = 170200 
00 = 170202 
MAPLO1 = 170204 
MAPHO! = 170206 
MAPLG2 = 170210 
MAPHO2 = 170212 
MAPLO3 = 170214 
MAPHOS = 170216 
MAPLGY = 170220 
MAPHOY = 170222 
MAPLOS = 170224 
MAPHOS = 170226 
MAPLO& = 170230 
MAPHO& = 170232 
MAPLO7 = 170234 
MAPHO7 = 170236 
MAPL1O = 170240 
MAPHIO = 170242 
NAPHIT = i7054e 
MAL LP = 17 5e5 
MAPHle = 170252 
ania = 170254 
MAPHI3 = 17 
MAPLI4 = 17 
MAPHI4Y = 170262 
MAPHIE = 1705Ee 
Ss 
MAPLE = 1ohS98 
MAPHI6 = 170272 
MAPLI7 = 170274 
MAPHI7 = 170276 
MAPL20 = 170300 
MAPH2EO = 170302 
MAPLel = 17030¥ 
MAPH2E1 = 170306 
MAP = 17pst8 
MAPH2e = i703le 
MAPL23 = 170314 
MAPH23 = 170316 
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60S 170320 MAPL24 = 170320 
6 170360 MAPHE4Y = 17 
6 1703¢4 MAPL. 2 = 1703¢4 
6 170326 MAPH2S = 170326 
609 170330 MAPL26 = 170330 
He os: 
bie 130336 MAPHE7 = 170336 
61 7034 MAPL30 = 170340 
614 170342 MAPH3O = 170342 
615 170344 MAPL31 = 170344 
pis 1703 APH31 = 170346 
61 1703 = 170350 
618 170352 = 170352 
619 170354 MAPL33 = 170354 
620 170356 MAPH33 = 170356 
bei 0360 MAPL34 = 17036 
bee 170362 MAPH34 = 170362 
623 MAPLSS = 170364 
eF4 1 MAPH35 = 170366 
bee 170372 heer = 170378 
a 
£27 170374 MAPL37 = 1703 
628 170376 = 170376 
629 -EQUIV MAPLOO, MAPLO 
630 -EQUIV MAPHOO, MAPHO 
631 ~-EQUIV MAPLO1,MAPLI 
ps6 -EQUIV 
-EQUIV MAPL 
634 -EQUIV MAPHOe 
635 -EQUIV MAPLO3,MAPL3 
636 “EQUIV MAPHO3 
637 -EQUIV MAPLO4Y, MAPLY 
638 -EQUIV MAPHO4 
639 -EQUIV MaAPLOS,MAPLS 
-EQUIV MAPHOS 
-EQUIV MAPLO6,MAPLE 
-EQUIV MAPHO6,MAPHE 


COMM MMMOD 
BIT LWVNHo 


o 
<£ 
w 





Ket UN POP-11/70 POWER 
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ONS 
£50 
ped -S8TTL TRAP CATCHER 
6S3 ococsc =0 
654 ALL UNUSED LOCATIONS FROM + - 776 CONTAIN A“. 42,HALT” 
6S5 t SSEQUENCE TO CATCH ILLEGAL TRAPS AND INT 
bee *#LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 
€58 ~SBTTL STARTING ADDRESS(ES) 
oP8 009200 - =200 
661 000*00 900137 001102 JMP OeBEGIN JUMP TO STARTING RODRESS OF PROGRAM 
BBE TTT CRTTTTTTTTTTTirrrrer rer ittirerretirrrrerr err irr ere eers 
ped . SBTTL ACTI1 HOOKS 
7%) sATHE FOLLOWING LOCATIONS ARE SETUP TO BE USED WITH ACTII1 
658 t SLOCATION 46 WILL CONTAIN THE ADDRESS OF THE LOCICAL 
6&9 ;#END OF THE PROGRAM, 
670 ;#LOCAT ION S2 IS USED TO SPECIFY PROGRAM OPERATING REQUIRENENTS 


o 
™“ 
-- 

eee 


; #AND/OR gy et THIS IS ACCOMPLISHED BY PEAT ee BITS 


eve 3#T0 A ONE OR A ZERO. THE BITS USED AND THERE MEAN 

| 674 ;# BIT 1S=1 PROGRAM SHOULD BE POWER FAILED WHILE RUNNING 
B75 i =0 NO POWER FAIL DESIRED 

| 677 + BIT Met PROGRAM RUN TIME IS MEMORY SIZE DEPENDENT 
oe i# =0 RUN TIME IS NOT MEMORY SIZE DEPENDENT 

| 680 :# BITS 13-0 MUST BE ZERO’S 

| 682 000204 SSVPC=. ;;SAVE LOCA 

683 246 $8 

; 684 000048 003132 -WORD  SENDAD 2 

i 68S 252 

| §86 o000S2 40000 -WORD  BIT14 3 

| 687 00204 . =$SVPC 3; RES 





MAINOE 
DEKBGA 


C=11-DEKBG-A 
Pl) 
588 001100 
689 
eae 001209 06405 
692 001102 
633 001102 012706 
594 pie 12737 
69S 001114 012737 
696 OO0llee 005067 
637 O0lleé piece 
698 001134 012777 
533 00114 912737 
001150 012737 

703 
702 
ba 1156 905000 
705 Boi ie0 013701 
706 O01i64 1 
707 001166 071027 
708 O0117e an 
703 001174 01006 
710 
711 

a: 7am 

| 713 001200 005227 
714% 001204 001116 
715 001206 Oe2737 
716 9301214 001Si2 
717 peisie 104400 
718 leee 000413 
7e0 001252 
7el OOleSe 104400 
res 0012S OO00406 
724 001274 
=} 001274 010046 

lee 104404 

727 ot 006 
728 001301 000 
729 001302 104400 
ce 001308 O00404 
73e 001320 
733 001320 104400 
7 001324 000423 
72 Bola yoy 
ce 001400 20 
740 001442 
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ACTL1 HOOKS 


001310 


001326 


001402 


ooc042 




















21106 
FACTOR: .WORD 20000./6 ;20000 E-7/6 E-7 = 2NS/.6NS = 
ewes ‘POWER DOWN TIME DIVIDED BY “SOB” EXECUTION TINE 
"MOV #STACK, SP :;SETUP THE STACK POINTER 


MOV aSTRAP aRTRAPVEC :- TRAP VECTOR FOR TRAP CALLS 

MOV 8340, JRTRAPVEC+e; LEVEL 7 

CLR spass CLEAR THE PASS COUNT 

MOV SENDCT,SEOPCT  ;:SETUP END-OF-PROGRAM COUNTER 

MOV #POWDWN, JOVEC _:SET UP POWER DOWN VECTOR 

MOV SPARERR' JBCACHVEC :SET UP PARITY ERROR VECTOR 

MOV #1, J8PARFLG s INITIALIZE THE MULTI PARITY ERROR INDICATOR 


;DETERMINE THE NUMBER OF 4K BLOCKS MEMORY IS MADE UP OF. 





CLR RO ; MAKE nSB’S = 0 
MOV JSSIZELO,R1 GET PAR VALUE FOR LAST 32 WORDS OF 
INC Ri : AND UP TO A 4K BOLINDARY 
DIV #200, RO *FORM THE BLOCK NUMBER OF 
DEC THE LAST 4K BLOCK AND 
MOV RO,LIMIT *SAVE IT. 
sIDENTIFY THE PROGRAM AND TYPE INSTRUCTIONS 
INC 8- ssFIRST TIME? 
BNE TSTl se IF NO 
CMP ; *2ACT=11? 
BEQ TSTl $s IF_YES 
TYPE 655 *: TYPE ASCIZ STRING 
4 *:GET OVER THE ASCIZ 
iagss ASCIZ <CRLF>*MAINDEC-11-DEKBG-Ax<CRLF> 
" ‘TYPE 67S ss TYPE ASCIZ STRING 
BR >:GET OVER te ASCIZ 
i878: .ASCIZ <CRLF>*BANKS O -'& 
“MOV RO,-(SP) :SA FOR TYPEOUT 
TYPOS : +A EYEE OCTAL ASCII 
BME OB FE IPERESS CEABING ZEROS 
TYPE 69S + PPE Berd TaN 
BR 68s 3GET OVER THE ASCIZ 
jibes: -ASCIZ # EXIST# 
"TYPE 71S s; TYPE ASCIZ STRING 
BR 0 *:GET OVER THE ASCIZ 
5i7is: -ASCIZ <CRLF><LF>*INTERAUPT T 
"TYPE 
«2735 PASCIZ 
925: : 
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5s RERESRELLSSLAKSL ALL RESESLERAALAAAE LAL AALALEAAALALALSLLALALE LESS 
TEST 1 SIMPLE DOWN/UP TEST (KERNAL) 
nn genie hor at cee cuenta mcaais Oct ct ae 
177570 "MOV #1,d8DISPLAY § ;SET TEST NUMBER 
os :SET KERNAL MODE 
, 


= 
% 
S 


-_ 
ei 
8S 
- 
J 
< 
az 


tWAIT FOR THE POWER FAIL 


5 
D 
~ 
4 


2s: MOV 


= b-< 0 p-0 p= ps pe 


SINS Haun Fs 
g 
2 
3 
R 
*ig 


a 


SP,RO 
astAack-4,RO 
+4 


g 
5 
3 


S888888888 


O=2 G0 § <0 6 <0 0 as f= fe hw 0 G0 he fe 


00 MOV #STACK, SP 
74 MOV aeSTACK=4, RO 
462 CMP #2$,RO 

BEQ +4 


1076 MOV aeSTACK-2,RO0 
#0,R0 
Q +4 
1S: 


177570 BIT #SW14, J8SWR ;LOOP ON TEST? 
BNE TSTl ;LOOP TO TST1 


PRASLOR 


T RETURN ADDRESS 
"ADDRESS . 


ae 


STACK IS WRONG 


3 
: 
RR 


> 
£ro 


2 
a 


5 = 


8 
5 


8888888E888 


aaa 


8 
c 
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gE AES eS ge dE SE A EE EE SE EE EE EE EA a EE 


REESE RSRERR AAR CCU RECON CEP REE PEPE: 


TEST 2 SIMPLE DOWN/UP TEST (SUPERVISOR) 
001 ee ee ee eee 
att 012737 oon002 177570 MOV #2,98DISPLAY § ;SET TEST NUMBER 
poiecs pisees poise HOY #3009, S4PS Peer BUEN AP Ret. 
‘ : A 
001560 acer WPTT *WAIT FOR THE POWER FAIL 
0015be 012706 0011 2s: MOV sSTACK, S? RESET 
1565 013700 001 MOV DSSTACK-4,RO  3GET ADDRESS 
001572 001562 CMP #2, RO *CHECK ADDRESS 
01576 00140 BEQ , *SKIP IF OK 
1600 eeend HALT "ADDRESS ON STACK IS WRONG 
001602 013700 001076 MOV DBSTACK-2,RO GET OLD PS 
95160 OOD 040000 CMP #40000, RO *CHECK OLD PS 
1612 OO1401 BEQ *SKIP IF OK 
OO1b14 000000 “ HALT -OLD PS IS WRONG 
001616 032737 O40000 177570 #SW14, J8SWR ; ON 
001624 001345 TSTe 





ee es ee ee ee es ee 


SETS 


eae eee eae anes Snes == eee arenes 
r - 
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787 © REREKTKLAAESFRASSEAAERASARSSSRRSAARERELALAASRESLA SAA SHALE ER AELAELSEES 
788 TEST 3 SIMPLE DOWN/UP TEST (USER) 
73 1626 jesieebanssnesatnsnsasnaccnnnaneonstantansesesansnsnscsantss 
73) Obitee 012737 oc0003 177570 MOV 83,d8DISPLAY § ;SET TEST NUMBER 
rai tein Glens dares 177 YER Se ce cer 

at 
734 CBLeaG BABOOT WAIT ‘ THE R FAIL 
795 001 OL 001100 2s: MOV aSTACK, SP RESET ro 
o3 001654 O1 001074 MOV DeSTACK=4,RO0 § 3GET RETURN ADDRESS 

001660 001650 CMP #2$,RO *CHECK ADDRESS 
798 OO 1664 140 BEQ :SKIP IF OK 
739 O01666 HALT *ADDRESS ON STACK IS WRONG 
B00 001670 O01 001076 MOV DaSTACK-2,RO GET OLD PS 
801 go1b74 140000 CMP #140000, RO *CHECK OLD PS 
802 O01 001401 BEQ +4 *SKIP IF OK 
803 00170 000000 “ HALT “OLD PS IS WRONG 
80S 001704 032737 S40000 177570 BIT 8SW14, JHSWR sLOOP ON TEST? 
BOB 001712 O01345 BNE TST3 LOOP TO TST3 
Bos 
£10 : ites] Gd POMER FAIL WITH ODD pooREGG ee 
811 > &TE POWER FAIL WITH ODD ADDRESS 
gts 901714 jeeOuecuueenaeaneeoseeastenstunnes fuse OOEEEOEESEOEAOEEONEEOLEOE 
B14 001714 O1 177570 MOV #4, JSDISPLAY ; T NUMBER 
815 i533 piers seaaai’ CLR a T KERNAN MODE 
816 001726 012737 001740 oD0004 MOV #3$,Q8ERRVEC  ;SET TRAP VECTOR 
Bie Gaines lames SaaS as, AY EMER ce gee PLURESOMESS Fon Poser ral 
819 001744 pers reves TST , *CAUSE ODD ADDRESS TRAP 
piven poooge oppo 1s: nti gemmvec «= ieee LD 
Bee 001760 nea ti Smee BIT sSHl4, aaShR : ON TEST? 
B23 001766 001352 : ; 
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5 EERALAKALEEAELELLLAAAAL ELLA ALLL AA LARS LLAARAAEALALALALELALE SELES 


sETEST 


POWER FAIL IN THE RED ZONE 


) 
+ LKEKAEAELALLESALLLALAL ALARA ALAS EASE LELE LALA RELALELAFLA FLAERELE 


tits: 


UU 


177570 


;SET TEST NUMBER 
3 te hetteten 


baey S TACK 10 RED J ONE 
shalt FOR POWER FAIL TRAP 
T UVEC TO HALT 


3NO! 

;GET t~: » | YPING 
Ea 

;SKIP IF "OK 

30 IS WRONG! 
ar: ON TEST? 
;LO0P TO TSTS 


iiecre POER FAIL IIH TIE OUT (ERD 


‘ATE 


FAIL WITH TIME OUT (KERNAL) 


; AERA EEDEAEEESESEEEESEEOESEFEEEEEREEEAESESESERAEEEEEREREEREAHE 


tite 
EER 
0 3$: 


001100 1$: 


SET TRAP VECTOR 


et ae RETURN ADDRESS FOR POWER FAIL 
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POWER FAIL IN THE YELLOW ZONE (KERNAL) 


177570 


177570 


177570 


SitesT 7 POLER FAIL IN THE YELLO DOM (KERN) 
© RHINE HEHGHHE HHH HEHEHE HHH EHH HHI HEHE 


+617 
MOV #7, J8DISPLAY T TEST NUNBER 
eR sare ier THE my: 
: 
MOV tbe OS RERRVEC sLEAR TH at ADDRESS 
MOV #400, SP : SET STACK TO YELLOW ZONE 
MOV #1$,R3 sSET Per URN ADDRESS FOR POWER FAIL 
WAIT OR POWER FAIL 
1S: HALT s BOWER FAIL RETURNED TOO SOON 
8R 4 7 SP CHECK 
2s: MOV #6, JHERRVEC Fry 
TST FLAG te THE serrst INSTRUCTION FLAG SET? 
MOV #7$, QUVEC SET UVEC TO HALT . 
7S: HALT ?NOT ENOUGH OR TOO MANY INSTR. EXEC. 
MOV #POWDWN,ODVEC  ;SET DVEC 
BR 4§ :GET OUT 
cS: MOV #4S,R3 >SET RETURN 
RTI GO TO THe POWER FAIL ROUTINE 
os HALT *SHOULD NOT RETURN HERE 
BIT #SW14, JHSWR sLOCP ON TEST? 
BNE TST? *LOOP TO TST7 


Geek pee eee 
T 10 FAIL WITH RESETS 
Ci memen teeter ener 


antes 
MOV #10,38DISPLAY  ;SET TEST NUMBER 
CLR at >SET KERNAL MODE 
MOV #15, R3 >SET RETURN ADDRESS 
MOV #STACK, SP sRESET STACK 
3S: RESET RESETS 
REeEy 3 ia 
BR 38 spor 
1S: MOV aSTACK, SP T STACK 
Houl4, , aaSWR ON TEST? 
iL Oe TO TST10 















et Th 

DEKBGA.P Til 
309 
910 
ai 002360 
ae 002260 tes 
a eae Ghee 
aie 1 
aio BNE bie 
3 BE Bis 
SBS 
S He ie 
S24 002444 001345 
$25 
5 
$28 
Seg 
$30 Oo02446 
$31 O02446 piers? 
os 002454 ison 
Gee tee 
935 O0c47e te 
ee 
$38 00ce510 000000 
$339 O02Sle pier0e 
$40 002516 Ol 
941 O002eSe4 032737 
S42 O0eS3e 001345 


POP=11/70 POWER FAIL 
POWER FAIL WITH ODD ADDRESS (SUPERVISOR) 
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Lieeqonnsusenonscusnepessverneeeyernrren en enutesn eee 
P L WITH ODD ADDRESS (SUPERVISOR) 
: EEEEAEEEEEAREEGSSESEERETASERSESSSATEOEEEERSESSESSEEEEEEEEEEEEEE 


jute 
#11,Q8DISPLAY  ;SET TEST NUMBER 
MOV #35, J¥ERRVEC sSET TRAP VECTOR 
MO #15'R3 T RETURN ADDRESS FOR POWER FAIL 
38: MOV #STACK, SP RESET STACK 


HRY $4000, aus FeycP “OBB AD SHES Fae 


rh ri Sb SoNeSs! PREP FaTLED 










1S: MOV aSTACK, SP : RESET § STACK POINTER 
BIT 8SW14, J8SWR Ht on TEST? 
TST iT OOP TO TST11 
5 bidet ia POWER FAIL WITH TIME OUT (SUPERVIGOR) 
> &TE FAIL WITH TIME OUT ( ) 


[a EEAEE RA EAAEE SE HEEENSEEOEEEEAHETERSEHESSESESEEEESREEAHEREREER 


it 
ff i Bence ie set Thee tee TURN A ADDRESS FOR POWER FAIL 
s Ue era 


3sPS *SET SUPERVISOR 

MOV RO, #173000 : A TIMEOUT 
CLR aaPs SET KERNAL 

HALT *TIMEOUT FAILED 
RESET STACK 


1S: MOV #STACK, SP : 
MOV #6, JSERRVEC SRECET 4 


;LOOP ON TEST? 
BNE TSTle ;LOOP TO TSTle 








943 





rE 


: 





947 
948 
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Ba Soe Oe ohee CRNA 


scar resareen 





002534 
002S42 
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POWER FAIL WITH 0 aporess’t LicER 
perenne rereaeerenerenineneceneceneneaeannceneceaeeaes 
:&TEST 13 POWER FAIL WITH ODD ADDRESS (USER) 
Ui aaletdnnnenedatbadtestanseaaoeiaaassiioeennensnssee 
000013 177570 MOV #13,d"DISPLAY  ;SET TEST NUMBER 
002554 000004 MOV #3$,a8ERRVEC SET TRAP VECTOR 
002600 MOV #1$/R3 :SET RETURN ADDRESS FOR POWER FAIL 
001100 38: MOV #STACK, SP *RESET STACK 
190000 177776 MOV #140000,a8PS =; MODE 
TST 383 *CAUSE ODD ADDRESS TRAP 
177776 CLR aePs *SET K MODE 
HALT ODD ADDRESS TRAP FAILED 
001100 1S: MOV aSTACK, SP RESET SP 
000006 900004 MOV #6, JSERRVEC *RESET 4 
040000 177570 BIT #SW14, aeSWR *LOOP ON TEST? 
BNE TST13 :LOOP TO TST13 
© SRELAERLER SE KEE LES SRL EK RSE LE SEL EERE ERE RER MALLE REL E KEELE EEL EEREE 
ikTEsT 14 POWER FAIL WITH TIME OUT (USER) 
i sit eT en ere 
14% 177570 #14, JUDISPLAY TEST NU 
poops haaeos ov He'3 VEC SET Ti 
002666 MOV #15:R3 SEL UP RET OP RETURN ORODRESS FOR POWER FAIL 
001100 3S: MOV aSTACK,. SP 
140000 177776 MOV #140000, a¥PS ; SER MO MODE 
173000 MOV RO, 94173000 A TIMEOUT 
1 CLR SET KERNAL MODE 
HALT j TIMEOUT FAILED 
001100 18: MOV #STACK, SP jRESET STACK 
000006 000004 MOV #6, JSERRVEC q 
040000 177570 BIT #SWi4 LOOP ON TEST? 
1 *LOOP TO TST14 
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177570 
oo0c04 
000250 


000004 
177570 


177570 


177570 
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53933 SEE 
5 MEMORY MANAGEMENT ABORT TEST 


teTEST 1 









Se ee ee ae 
#15,d8DISPLAY SET TEST NUMBER 
CLR aaPs *SET KERNAL MODE 
MOV 84S, QHERRVEC  :SET FOR TIMEOUT 
ISR MAP THE WORLD 
MOV #3$, JSMMVEC :SET Y MANAGEMENT VECTOR 
MOV #15°R3 ; LOAD 
INC aaMARO TURN MEMORY MANAGEMENT ON 
38: MOV aSTACK, SP ZAP STACK 
: INC 38140000 “ACCESS VIOLATION 
4s? «HALT =NO VIOLATION OR TRAP TO 4 
Si CLR asMMRO ;TURN OFF MEMORY MANAGEMENT 
e$:* MOV uSTAC K,SP__  jMAKE A Ne STACK 
* MOV JSERRVEC RESET 4 
BIT scuit SaSuR *LOOP ON TEST? 
BNE TSTis’ *LOOP TO TST1S 
$ a it ahi i lll 
‘ee ib MEMORY VOLATILITY TEST 
titic Sag Yaerccuacnescaret aie signe eaammnaete ier erence ert I 
aePs SET 
MOV #10,R2 + EAD COUN it if Spot est ITERATIONS 
4S: JSR Pc, LOAD *LOAD ALL MEMORY WITH S2S25 
MOV #1$,R3 POWER AIL, RETURN ADDRESS 
MOV $16,d8DISPLAY ;SET TEST 
2s: JSR PC, CHECK j CHECK FOR THE S2S25 
BR iLOOP FOR EVER OR POWER FAIL 
18: MOV TACK, SP ; ZAP 
ISR PC, CHECK CHECK ALL MEMORY 
*DO IT 10 TIMES 


SOB Reus 
BIT #SW14, JUSWR *LOOP ON TEST? 
BNE TST16 LOOP TO TST16 














pe ee ee 
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DEKBGA.Pil T16 hipmoRY (OLATILITY HEsr 


htt Hi RELKKARAKRAS AERA LAER LALA ALA ARAL KA LAA LARA ALE SRL KHE KAA K EELS 
1016 .SBTTL END OF PASS ROUTINE 
s% NT THE PA R ($PASS) 

iB STRESS RAFEST PES (PP 
1920 IF THERE ISN’T JUMP TO 200 
102 00307 SEOP: 
10e3 06030 0002 NOP 
1024 005267 Ooo0046 INC SPASS ;; INCREMENT THE PASS NUMBER 
1025 100 042767 100000 oD0040 BIC #100000,$PASS ::DON’T ALLOW A NEG. NUMBER 
10e% 106 Bde 487 DEC (PC)+ : :LOOP? 
1 003110 o0000 SEOPCT: .WORD 
1028 O031l2 00301 BGT SDCAGN 5s YES 
1029 003114 012737 MOV (PC)+,a(PC)+  $:RESTORE COUNTER 
1030 003116 000001 SENDCT: .W 1 
1031 003120 003110 SEOPCT 
1032 le2 013700 oo004e SGET42: MOV a#42, RO 3;GET MONITOR ADDRESS 
1033 126 Q SDOAGN *:BRANCH IF NO MONITOR 
1 1 SET ;;CLEAR THE WORLD 
1036 003132 004710 SENDAD: JSR PU, (RO) : 260 yO gMONTTOR 

| es 
iS Gate! Gees i i 
1038 0031 *:ACTLI 
1oa8 Gos4s 900137 c00200 ee ne eae RETURN 
1041 O03146 peptae $PASS: .WORD 0 *:NUMBER OF PASSES 
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END OF PASS ROUT 


pea pe 


LOAD MEMORY WITH DATA PATTERN 
JSR PC, MAP 


2 


500 
EG) Gt 


2 


SUN RANaSS SRA 
eee * 


ee ao 


g 







i y uF B MENORY MANAGEMENT REGISTERS 





LIMIT, RY 







DATA ae TA PATTERN 
#2$, JHMMVEC cet Th FDR MEMORY MANAGEMENT ABORTS 
# PORN ADDRESS OF WHERE TO START WRITING THE DATA 
#120000, RO ; USE KIPARS FOR ADDRESSING 
#1, J8MMRO TURN ON MEMORY MANAGEMENT 
Ro, (RO)+ WRITE THE DATA 
RY LAT. BANK WRITTEN? 
#120000, RO jRESET RESET ADDRESSING REGISTER 
#200, J#KIPARS 
$1, J&MMRO OTE TEAR Mi MEMORY Fan MANAGEMENT ERRORS 
*RETURN TO CONTINUE WRITING 
JeMMRO ?TURN OFF MEMORY MANAGEMENT 
#4, SP CLEAN UP THE STACK 
PC “RETURN TO CALLER. 





ii Me 22 ea pj 
TG & 


Pb b bs P— b= + = = Ps 0 he Bh b> Pp pepe pe 


RES 


SRee 
sas 


— [=) 
oe 


ag 
SR 


POP=11770 POWER FA 
CHECK MEMORY FOR CORRECT D 


3332 000250 


177572 


Ata P 
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ATTERN 
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-SBTTL CHECK MEMORY FOR CORRECT DATA PATTERN 


CHECK: 


1$: 


172352 
177572 


2$: 


3$: 





JSR 
M 


$ 
#120000, RO 
#200, J#KIPARS 
#1, JaMMRO 


‘oF UP Mh gS ameeaees REGISTERS 
;GET Bate TA PATTERN 
;SET UP FOR MEMORY MANAGEMENT ABORTS 


ADDRESS OF WHERE DATA PATTERN STARTS 
SUSE KIPARS FOR ADDRESSING 


;T 
:READ_THE fata 

315 IT GOOD? 
;BRANCH IF YES 
;BAD DATA IS IN Ri 


S 
RESET SSING REGISTER 
T 4K 


MANAGEMENT ERRORS 
3 CONTI TESTING 

N OFF MEM. MANAGEMENT 
CLEAN UP THE STACK 
RETURN FOR CALL 


















‘ t 
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PARITY ERROR HANDLER 


et Pa MACYL1 27(732) 
DEKBGA 


PARITY ERROR HANDLER 


habe 


ee F 


ale MERR, J&MEME 
1,PARFL 


P+ 0-4 9 Pb Fh + Pu pops 


0+ 02 ban b= fe fn ho Fae ne 
BSURRZBRLS 














;FIRST TIME IN? 


INO=-eROTHER PaRTy. ERROR COCURRED WHILE 
tne wor PaRITY ERR ERROR ORBORESS=07 

1 iPBOVE, THE PROGRAM? 

;PARITY ERROR IS IN THE PROGRAM 

Bata prez anon occu 





; IF YES 
;BACKUP BY ONE WORD 


rt rice ERROR INDIC TNO TeATORS 
INITIALIZE PARITY ERROR F’ 
:CONTINUE TESTING 





ro ee 
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DEKBGA.Pi1 PARITY ERROR HANDLER 


it .SBTTL POWER FAIL ROUTINE 
8-1, FLAG SFIRST INSTRUCTION FLAG 
od Sted a Se ee 
Tits Co3sos b1e777 OO3eRe 000132 ay SRL aN SET THE ERROR ADDRESS 
1115 003512 911667 000124 CMP #440' SP YELLOW OR RED 
111 a BMI 1S iNO a 
1119 MOV «STACK, SP :SET EMERGENCY S 
1ib6 ioise ta Res -(8) ; REGISTERS 
903534 =( ; 
1153 Boece 10546 ad Ra -(8) THe 
He Bes eS a 
1152 Goseso Ole7e0 175364 Ob FACTOR, RO ; iN pe 
He posses poo HALT vSUVEC _HIRET FoR POWER Down 
tS VECTOR 
) BILLDWN,@DVEC ©; SET TOO FAST DOWN 
| ie reese 167 T7EaF4 MOV FACTOR, RO SGT TINE FAC 
1l ea pier SOB 4 ; 
2 2 (634,85 ; TAKE 
ils poe 12605 ey (6)+,R4 ; THE RS 
iis? posei2 o1Se03 mov (5) RESIST 
1 MOV ° ’ 
003620 SRESET THE DOWN VECTOR 
| lim Qosese 018777 oov72 coon20 Hee tRgi MN aOVEC TE nOTREST Toad 
| die 003630 000113 ;POWER UP BEFORE POWER DOWN COMPLETE 
| tia poasae gonoce es ee SLOCK UP THE HALT 
| tive : sPOWERED DOWN BEFORE UP COMPLETE 
| 1147 003636 00000 TLLDWN: HALT itiwan dh at is 
ie ;RETURN ADDRESS FROM POWER FAIL 
| 4180 ooges2 00000 ERRAD: 0 ; 
me 0002 UEC: 24,26 :UP ADDRESS PAIR 
| TES 803e60 Soopes Booues VEC: aM, 26 SCONE PLACE 10 PUT. THE SP 
1164 03654 900000 ra Os $1 INSTRUCTION DOWN FLAG 
1186 So3e60 Sob009 baYA:: 52525 SUHAT'TS 10 BE WRITTEN INTO MENORY 
1157 003662 052525 DATA: 





AGO RE ES OSE == 





eR A eR 


fn 
So Uh Eo owe 8 


= 


NN ~) ~8 ser erverververververververvarearnars 
~ 


0-2 & < 0-2 9-0 2 9-2 0 G2 pw O-2 Po ne Pe He us Hn fo 
Pan 


deed 


5 


CD 0 0 


b-+ 6-— 0 © — O— Bb -< 9 B= B® 


QOOO0OK000000 
S885 
dei 
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MEMORY MANAGMENT REGISTERS 


-SBTTL SETUP MEMORY MANAGMENT REGISTERS 


MAP: MOV #0, J8KIPARO sSETUP PARO FOR IST 4K 
MOV 877406, J8KIPORO 34K, R/W, EXPAND UP 
MOV askiPaR -SEt UP PARS FOR IST 4K 
MOV #77406, J8KIPORS 34K, R = 
MOV  8cO0,dbKIPARG ;SET UP PARG FOR 
MOV 80, JbKIPORG *ABORT ALL REFERENCES 
MOV #177600, a8KIPAR7?’ :SET UP PAR7 FOR 170 PAGE 
MOV #77406, @8KIPDR7 ;4K, R/U, ED=UP 
MOV #BITO4, aeMMRS SET UP FOR 22-BIT MAPPING 
MOV SMMERR,asMMVEC :SET UP MEMORY MANAGE 
RTS PC RETURN FROM CALL 

MMERR: HALT 


BR MMERR 





me ee ee, 





;MEMORY MANAGEMENT ERROR 








Coren 


pao 


az 
op po Fs 
aad 8 


BBB VRRLGR—Swes~5 


wo 


= 9-2 P— b= + B-< & = H > H+ H = 9-2 0-2 H -2 Ho B 0 9-2 p= 9-H 2H 
-- 


P=2 0o Fone tenn Gn Ge One Gus Dus ne Pas 2 b= F0 Bne Pane He Haw Bs Pao Pw B20 Pus Pe Gas Pe Hn Pe 
BB SRR LG 


ps 


es 


Ct 


BR 
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SETUP MEMORY MANAGMENT REGISTERS 


me 
a 
ie 


apes 


So 
= 


— ee 
~ 
N 


oae8 
Baaa 


B 


eso 
oe 
on 


= 


5p RRRRRERERREREES PLEA LSAAALL ALA REAA SAA FALLS AFARELSAAALAAESAELL SALLE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


;*#THIS ROUTINE IS USED TO Cee 16-BIT BINARY NUMBER TO A &-DIGIT 


;#OCTAL (ASCII) NUMBE 


;* 
;#CALL 


. sCALL 
* -BYTE ss 
4 
& 


2% MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
i TYPON :CALL FOR TYPEOUT 
#STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
— MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
i TYPOC >:CALL FOR 
STYPOS: MOV a(SP),-(SP) ;;PICKUP_THE MODE 
Hove 1(5P),SOFILL  3;LOAD 
(SP)+SOMODE+1 3;NUMBER OF 
ADD #2, (SP) >:ADJUST RETURN ADDRESS 
BR STYPON 
STYPOC: MOVB  81,SOFILL :;SET THE ZERO F 
MOVB 86, SOMODE+1 :SET FOR 
STYPON: MOVB #5, SOCNT ::SET 
MOV R3,-(SP) 3; SAVE 
MOV RY, -(SP) s;SAVE RY 
MOV -(SP) ;;SAVE_RS 
Ove +1,R4 GET THE NUMBER OF DIGITS TO TYPE 
ADD #6, R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
MOVB -R4: SOMODE >: SAVE i FOR USE 
MOVB SOF ILL, Ra >:GET THE ZERO FILL SWIT 
| MOV 12(5P)-RS 3 PICKUP NUMBE 
CLR R3 :;CLEAR THE 
1S: ROL RS >:ROTATE MSB 
BR 3$ ;;G0 DO MSB 
2s: ROL RS FORM THIS DIGIT 
ROL RS 
ROL 
MOV RS,R3 
3S: ROL R3 53GET LSB OF THIS DIGIT 
99 : 
Ber ¥ ss F 
BIC #177770,R3 +3GET RID 
BNE 4h 3; TEST FOR 
TST RY ::SUPPRESS THIS 0? 





YPE IT. 
STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
” MOV NUM, -(SP) NUMBER TO BE TYPED 
TYPOS 3: FOR TYPEOUT 
.BYTE ON jel TO 6 FOR NUMBER OF DIGITS TO TYPE 


3; 1=TYPE LEADING ZEROS 
O=SUPPRESS LEADING ZEROS 


# 
; #STYPON----ENTER HERE 70 TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
sepives OR STYPOC 











z 
& 


furufu 
Bhi 


P= pmo hf > hp 


DERE p yoy Ean 
geessessssssss2 


: 


ENSFIRGERFEEVSS 


O-= > 6-2 6 ~ b < b> 6 = B= 6 — Op pp 


Ga 


ay tc 


~DEKBG-A 


POP=11/70 POWES FAIL 
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BINARY TO OCTAL (ASCII) AND TYPE 


£ 


o000c2 000004 


4§: 
S$: 


7$: 


6$: 
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3 :;BR IF Y 

BS ii BR He CFB Ress ANYMORE O'S 
#’0,R3 s SHAKE Tit HIS DIGIT ASCII 

-'R3 5 MAK Il IF NOT ALREADY 
R388 00 T a THIS DIGIT 

SOCNT + SUNT BY 
# it ER F TO DO 

4 i Theik LAST OIGIT ISN'T A BLANK 
i iets O° 

(SP)+,RS 

(SP +, Rd Rector RY 
2(SP)*4(SP sd one Back FOR RETURNING 
(SP)+, (SP) 
9 + OF Race FOR ASCII DIGIT 
0 HA UF: IMINATOR FOR TYPE ROUTINE 
0 :OCTAI. DIGIT COUNTER 
0 ;3ZERU FILL SWITCH 
0 OF DIGITS 


‘set. TYPE ROUTINE 


; #ROUTINE TO TYPE ASCI 
;#THE ROUTINE WILL I 

; #NOTEL : SNULL 
#NOTE2: 
jsNOTES: 


SFILLS CONTA 


SFILLC CONTA 


3 *CALL: 
3#1) USING A TRAP INSTRUCTION 
TYPE » MESADR 


ie TYPE 
ii MESADR 
:#2) USING A JSR INSTRUCTION 
:* MOV »7 (SP) 
te JSR __—PC’STYPE 
3% ME 
STYPE: TSTB  S$TPFLG 
ar #=S 
BR 35 
1$: MOV —— RO, -(SP) 
MOV a2tSP),RO 
2s: MOVB seoee, (HP) 
r3t (SP)+ 
a tse 
att 


eT MESSAGE MUST TERMINATE WITH A O BY 







TE. 
OF NULL CHARACTERS AFTER A LINE FEED 






R I , 

HE CHARACTER TO BE USED AS THE FILLER CHARACTER 
THE NUMBER OF Pau CHARACTERS REQUIRED. 

THE CHARACTER TO FILL AFTER 













;;MESADR IS FIRST ADDRESS Ur AN ASCIZ STRING 


3 PUSH PROCESSOR STATUS WORD ON THE STACK 
3 CALL TYPE ROUTINE 
RST ADRESS OF MESSAGE 


t 
: 


Reeaes 

iS 

Ba 
Z 
7 
Z 


c 
: 


fem pond 

ao 
® 
3 
3 


RO 

ADDRESS OF ASCIZ STRING 

TER TO BE TYPED ONTO STACK 
IF IT ’T THE TERMINATOR 

ienat OR POP IT OFF THE STACK 

TORE RO 


se 
ewe 


BEaas 
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DEKBGA.P TYPE ROUTINE 
0000 4$: BHT, (SP) :;BRANCH IF <HT> 

ee, Abuses Abts ” oe . itt: 
1289 004260 122716 000200 CMPB —s- #CRLF, (SP) :;BRANCH IF NOT 
it Gree mF 
1e31 S (SP)+ :;POP <CR><LF> EQUIV 
1 1 004434 TYPE SCRLF 
1293 004274 757 SR 2s :;GET NEXT CHARACTER 
1294 oove7e ? S$: JSR PC, STYPEC 360 TYPE THIS CHARACTER 
Legs 126/28 000124 ES: CHP SEILLC, (SP)+ $315 i TIME FOR FILLER CHARS. ? 
153 Beast 16746 000114 MOV $NULL, -(SP) bites & OF ef CHARS. NEEDED 
1298 ;;AND THE NULL CHAR. 
1299 004314 105366 000001 7 DECB ~=s:«AA( SP) >;DOES A NULL NEED TO BE TYPED? 
1300 320 902770 BL 6$ :BR IF NO--GO POP THE NULL OFF OF STACK 
1301 322 767 O00026 ISR PC, STYPEC ::G0 TYPE A NULL 
ia 004326 000772 BR ; ;LOOP 
1308 ; HORIZONTAL TAB PROCESSOR 
1308 904330 112716 O00040 8$ MOVE = &”_, (SP) ;;REPLACE TAB WITH SPACE 
1 334 004767 000014 95 Pc, $TYPEC >: TYPE A £ 
1308 340 7 000007 ocoo0s2 BITB 87, SCHARCNT ::BRANCH IF NOT AT 
1309 346 1 one 3;TAB STOP 
1310 350 S (SP)+ *:POP SPACE OFF STACK 
1311 352 000730 BR 2s ::GET NEXT CHARACTER 
131¢ 004354 108777 cooo44 STYPEC: STB STS ::WAIT UNTIL PRINTER IS READY 
133 SOSee Heed ooo0002 MOVB scp) aSTPB ssLOAD CHAR TO BE TYPED INTO DATA REG. 
1315 004370 1 900015 900002 CMPB = s«a8CR, 2USP) +e F 
1316 O04 I BNE S:NOT <CR) 
1317 aa i 000014 CLRB 33 
1318 ooo ee oooo12 ooo002 1S Brea BL SSP) sy ExIT 
1320 14 ats 66 BEQ STYPE 23<LF> 
132 OO4W416 105227 Ne. PC)4 >? INC SPACE 
1323 St yPEX es oh RTS PC a 
toe rane 1778 Sipe; ‘Word 1772ce ti TTY PRINTER BUFFER REG. RDORESS 
ie? Bows6 002 ate “BY Q $SCONTATNS RULL CHARAC ER FOR FIL REQUIRED 
1329 Dowie Olé Sitte: BYTE ke Reet ILL . AFTER A “LINE FEED” 
1330 STPFLG: .BYTE *:"TERMINAL AVAILABLE” FLAG (BIT<O7>=0=YES) 
1331 004434 01S ; SCRLF: -ASCTL (15) > ;CARRAIGE RETURN 
1 004435 012 000 SLF "ASCIZ <le> > sLINEFEED 
1 004446 “EVEN 
i s8 SELERSRERE SERRE AR EEL HES RS SERE REESE AKA EE SE RALSL EERE ARK ERHERER ERED © 
13 .SBTTL TRAP DECODER 
1 s#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
1338 AND USE 1 ¥o INDEX THROUGH The hae TABLE FOR THE STARTING ADDRESS 
1340 :40F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
1341 :%G0 TO THAT ROUTINE. 
1342 

L. 


ae 












MATNDEC=11-DEKBG-A 
DEKBOA-PLL TRAP DEC 
1343 OOWN4O 010046 . 


Tis Owe 


1346 


1 
148 


~“ 


tai 


da nal et a 


OO44SO 111000 


Bowes 000200 


c0000e 


oc4460 
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RO, -(SP) 
2(SP),RO 
(RO) 


(RO) RO 
STRPRD(RO) ,RO 


-SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


;#BY THE “TRAP” INSTRUCTION. 


tJ 
STRPAD: 


END: 


3; CALL=TYPE 


20-SEP-76 


;;SAVE_RO 


;;GET TRAP ADDRESS 


;;BACKUP BY 2 


;;GET RIGHT BYTE OF TRAP 4 
i: INDEX TO TABLE | 
$360 TO ROUTINE 
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TTY TYPEOUT ROUTINE - 
TYPE OCTAL NUMBER (WITH LEADING ZEROS) sod 
TYPE OCTAL NUMBER (NO NG ) 

TYPE OCTAL NUMBER (AS PER LAST CALL) 









DERBOACP 


ee be 
pe feo 






z 


2898 
an 


: 
GRSce Sees raee 


305 


2 


a 





vn 
& 
+ 
$ 
8 
9 
— 
8 






ap 
: 





W 


eae 


bs 
SS 


| 


BEGIN 001102 
BITO = 000001 
BITbe = 
BITO3 = 000010 
ie Bg 
= 
BIDE = 100 
BITO7 = 000200 
BITOS = 000400 
+109 = 001 
Tl = 
BIT; = OoH000 
= 
BITle = 010000 
BIT13 = O2e0000 
BIT14 = 040000 
eile = 
= 10 
BITY = 
BITS = 000040 . 
BIT& = 000100 
BIT7 = 
BITS = 
BITS = 


“OEKBG POSS REFERENCE Y 





6928 


686 


ABLE =~ USER SYMBOL 


1103 
1168 
10648 
1325 
724 736 
11578 
771% = 791 
BB4e §8=1131# 
1095s: 13638 
621% 830% 
S66 974# 
1133 11198 
231 
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814% 828% ess* 870% 898% 
1141 


638% 856% 863% 873% 879% 
963% 994% 


1155% 
3 739 —s«s1389)s«d138DSs«1 3861 


913% 


914% 


1362 


931% 


S2e2e 


947% 


932% 


965% 


340% 











Pil 


KIPAR7= 172356 


i 


ax 

HI 

“ 
Seah ~ 


: 
= 


SR 


at ee tet 


Tr 
r=) 
32 
oe 
— 


eee, 
ane 


pa fs hs Paw fee 
RRR 


os 


MAINDEC-11-DEKBG-A 
DEKBGA 


1705 6 
1poese 
MAPHO7= 170236 
MAPHI = 1 
MAPHIO= 1 
MAPHII=s 1 
MAPHI i 
MAPHI 
MAPHI4= 1 
MAPHIS= 1 
say i 
MAPHI7= 
MAPH2 = 17021e- 
MAPH2O= 170302 


me ee + ee ee 


FERENCE T 


5138 


UN UU 
OOO NICUT£ 
SS OF SS OF GE St & GS SS OS ee Ot 


-_ 


Sage eePRe ERE RR 


bao ee 
ROC 


ESGRGRG 2 REPRO Sap 
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a) 
— 
7 


ae 


SSS nee 


i 


Ht RE rer OPE et 


Soe ROATS UuuCEEESS SEINTISINS 


ees ee 


| 
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POWER FAL 
ABLE =-- USER SYMBOL 
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NAINDEC=11-DEKBG-A 
DEKBGA.P11 


% 
MMERR 1169 
MMRO = 177572 4148 
MMR =} 41S¢e 
= 4168 
ae 
= 
PARERR 7e 33 
PARFLG ppsar4 oaae 
PC =%000007 3008 
1170% 
pit eS 
= 
POWDIIN rae 698 
POWUP  O03S66 1128 
PRO = 900000 3038 
PRI = 900040 3048 
PRe = 000100 3058 
Be: Bas : 
pre 3098 
= 
PRE = DODSCH soc 
PR7 = 000340 3108 
PS = 177776 goes 
% 
PSH = 177776 2698 
PWRVEC= 000024 # 
RESVEC= 1 r} 
RO = g 
776% 
1032 
1 
Rl =~000001 2838 
R10 =7~000000 2308 
Ril =~00000i esis 
Rie =~000002 e928 
Ria = =<pppnDS eae 
Ris  =ZD00008 : 
R2 = racy 
. Ee 
1233% 
RS =7000004 2868 
1216% 
RS =7000005 iSiee 
RE = ct 
BP =AbD0007 cage 
SAVE 003654 lleS# 
SDPARO= 172260 5028 


POP-1177) 
CROSS REFERENCE 


TABLE =~ USER SY 


1100 1106% 

11718 = 3=©1172 

ig 987% 

i 

421 1168 

ges*  1047% 

108848 

10898 1107% 

984% 1l004* 

12e94e 1301% 

er Syy 

1i3ls 

ge? 746% 
1% 953% 

290 

777 

03S 

119 

346% 47 

231 705 

292 

5e9 747% 
é ¥ 


992% 


1067% 


1007% 
1307% 


884 
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1057 1059% 1070% 1081%  1083% 

Hk 102e9* 1035% 1044 1061% 1064% 1085* 1088+ 

1141 

815 829% 859% 871% 899% 917% 919% 935% 

982% 1002 

7093 725 749% 750 7S4e 86755 758% 759 
i 0 ae a oe ; 970 










1072 = 1120S 1139% 
1138% 

817 831% 857% 875% 886% 900% 915% 933% 
lie2 3 =61l37® )«=61l4e) =: 1209s«ide Be) «=llee4e «=e = Le B 
1077 1123 1136# 1210 lelee 213% 1214* 1215 

07 1124 1217% 













DEKBGA.P11 


SDPDR7= 1 
SIPARO= | 
Siar a i 
iP 1 
SIPARY= 172250 
a 175524 
IPAR7= 1 
er | 
S 172204 
SIPDR3= 172206 
SIPDRY= 172210 
SIPDORS= 172212 
SIPDR6= 172214 
SIPDR7= 172216 
SIZEHI= 177762 
SIZELO= 177765 
SP =~0000f6 


gédned 
ae 


mee 
eee) 5 


ge 
oO 
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988 


785 
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693% 
906% 
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7e5* 749 753 775% 795% 
916% wie 934% 939% 950% 














1115 116 = 1L18* «1125S = 113928 
le4e 43 = 1e4 

1291 1295s: 1e97% §=61e99% 130% 
750 753 754 758 775 
862 901 906 916 921 
10091118 


822 847 864 890 907 
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DEKBGA.P11 
Supe = 
SWO& = 
SWO7 = 
SWOB = 
SWOS = 
1 3 
i?@ s 
ll s 
Sule = 
SW13 = 
SW14Y = 
SwiS = 
Swe = 000004 
as: Eu 
= 
SWS = 000040 
SWE is 060100 
Ss UUUe UL 
SWS. = 001000 
SYSTID= 177764 
TBITVE= 000014 
TKVEC = 000060 
TPVEC = 000064 
TRIVEES SppRi4 
TST1 pots 
TST10 §=©. 00231 
STll1 002360 
ig Beek 
Tenia popes 
TST1S 002710 
TST16 003012 
TSTe 001540 
a aie 
ver 00 oh 
T 114 
Te 002174 
TYPE = 104400 
TYPOC = 104402 
Typos = 1paaos 
= 
UDPARO= aes 
UDPARI= 177662 
ipeeee 
UDPARS= 177666 
ieee He 
ieee: 18 
S 
UDPDRO= 177628 
UDPDRI= 177622 


63 
| 
| 
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785 


729 


805 


764 


733 


MACY11 27(732) 


B22 


737 





847 


1236 


864 


1292 
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890 


13598 


907 


923 


941 


957 


975 





z 
iS 


C 


wot 
pe 
tee pe 


HE 


Bs 
it 
pmo Pao Gas paw, 


Borer cercerees 
Hn 


an5 
z 
ou 


5 


Pe 


vegies 
ee ee 


aa 


He 
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c 
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787% 
250% 


1 
1625s 
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11528 


715 
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15 
as 
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sts 
$31 
982 
$TPS OC44e65 1314# 
STPFLG O04*33 le 
STPS Oo4424 i3le 
STRAP OO444O £94 
$TRP = 000010 13508 
STREAD 1347 
STYPSN= #eeeee U 1363 
STYPDS= ##eee# U 1383 
aves 004214 12758 
STYPEC O043S4 leh 
STYPEX O04422 1318 
STYPOC OO4Ole 12068 
Srypoe Soave Sots 
Sharva= poaoe iooas 
$$TRPE = 000002 1N98 
SOFILL O04e11 leles 
> = 004472 6538 
760 
1325 





Be BBB 


RGR 










87ie 890 834 898 6998 §8=§=6. 90? 903 3 
941 943 S47 Hoe 86987 961 965 3 
998 10028 1006 10le 


3 3148 92 927 
5 975 977 $81 


3618 13628 13638 


1307 isies =61313 


1361 1362 1363 

1216 leS18 

5338 682 eo3e 86 68S@ 0 =s«i6 878 )=s«6B8Bs = 7e0e =o 7328 20S 7368 S781 756 
7 7398 Oe 841 84S 1042 1042 lle? 1134 1145 1148 


8 
1327 1328 1323 1330 1331 1332 13338 





oe ee Oe ee 


a 


ee 


Z 


% FE 


MAINDEC-11-DEKBG-A 
DEKBGA.P1! 
COMMEN b488 
OM 6488 
Ry | 
rose. Sees 
LOOPX Sine 
MULT 6488 
NEWTST er] 
POP Gulag 
PUSH 6488 
SCOPE e678 
SETK esss 
SETS esse 
SETTRA 13508 
SeTu esés 
SETUP 6488 
SKIP 6488 
SLASH 6488 
648s 
ST 6488 
Aart 
TEST 2eS8s 
TRNTRP 13508 
TSTNUM 2cse 
TYPBIN 648s 
TYPDEC 6488 
TYPNAM 6488 
TYPNUM 6488 
Nest fut 
TYPTXT 6458 
$SESCA 6488 
SSNEWT 648s 
SSSET 13508 
SSSKIP aoe 
» 2388 
. SHRHI 2388 
- SHRLO 2578 
-SACTI 2388 
-SCATC 2388 
. SEOP 2388 
. STRAP 238s 
.STYPE 2388 
-STYPO 2388 
-1170 2388 





eee af BS 


2 2o82 


a 3 
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S 8 FRR 2 #& pebeeAReERe 
2 £ #£ 8 BE § BE  aSBREeRETREPS 2 
"82 8 & BEF 8 see & 
4 
Fa. wo ~~ —e — = “4 
Si gob MES gfe | RRRREIRREEERS g 
&, 8 8 B88 Se5 F Ree sReUSREESeS Es 
9 
soa 8 SEGRE & RR ERECT gs 
e 
desk 8 BE RSE Ree ER BERSUSRURSSEEE Mee B 
cg B® SBS Rasy ReS RRR SEREROSPESEECS BEES 2S 
ie 38 «=« ss SBRSRRPE BROE BRR SBERNETERREMGES BARBER ge 
au. 
4 
2 #2 % Se SGPRSMEG BRR AS RRECRMRRERORR SRS aes 
on” 
Fs _ _ =e 
a, Gree R RSE ORR eee RERP RRR ARERR ano eSMeRNNANEaS eS 
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DEKBGA.Pil 


sgusgeninay gy 5 Sebaey eSsens sontvacnat e 


—- em em ee re re ee ee ee et 
(oe me ne ee eee pe ne eee; 
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aes 


a3 


BARR BoB oy 
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uw 
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is 
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Bet ae 
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NO 
38 


£85 Bone 


Si 6S Fe 
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pis Ih La ES 


Sere to 


bho 
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+ Shezse ese ey 
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1027 
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~ 
o 
Hoe 


a 
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RRORS DETECTED: 0 

AULT STE Bare GENERATED: 0 
%, DEKBGA. SEQ/SOL/CRF /PAGNUM=DEKBGA 
RUN-TIME: 25 13 3 SECONDS 
RUN-TIME RATIO: 162/42=3.8 
CORE USED: 15K (29 PAGES) 
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